mc'seft 


PROCEDURE PEEK (A : ADRESSE; VAR B ; 
TYPE MISCHTYP = (* siehe oben *); 
VAR X : MISCHTYP; 

BEGIN 

X . AD := A (* ADRESSE BESETZEN *); 
B ;= X.PTM* WERT HOLEN *) 

END ( * PEEK * ) ; 


BYTE) ; 


Wer PEEK lieber als Funktion hat, muß schreiben: 


FUNCTION PEEK (A ; 

ADRESSE) : BYTE; 

TYPE MISCHTYP = 

( * siehe oben * ) ; 

VAR X : MISCHTYP; 

BEGIN 


X . AD ;= A; 


PEEK ;= X.PT-* 


END (* PEEK *) ; 



Ein paar Einschränkungen sind jedoch 
zu beachten. Hat der Compiler die Mög- 
lichkeit, per Option eine Laufzeitüberwa- 
chung ein- oder auszuschalten, dann 
muß diese unbedingt ausgeschaltet wer- 
den (Option T- oder R-). Des weiteren 
sind die Adressen über 32767 als nega- 
tive Integerzahlen (Komplement!) einzu- 
geben. Dabei entspricht -32768 der 
Adresse FFFFH und -1 der Adresse 
8000H. 

Leider gibt es einige Firmen, die beim 
Herstellen ihres Compilers nicht an ma- 
schinennahe Anwendungen gedacht ha- 
ben und die Recordvarianten nicht über- 


einanderlegen. Bei diesen Compilern 
funktioniert die geschilderte Methode 
nicht. 

Erprobt wurde das Verfahren auf der 
Pascal-Maschine von Western Digital 
und auf dem Großrechner CDC Cyber 
175. 

Ich würde mich freuen, Erfahrungsbe- 
richte über die Verwendung des Verfah- 
rens aut Apple, TRS-80, PET und ande- 
ren zu erhalten. 

Abschließend noch eine nützliche und 
praktisch erprobte Anwendung. Es wird 
hier ein Text bildschirmweise kopiert 
und per Tastendruck weitergeblättert. 


BEGIN (* HAUPTPROGRAMM *) 

ZEILE : =0 ; 

WHILE NOT EOF (INPUT) DO 

BEGIN (* DATEI KOPIEREN *) 

ZEILE := ZEILE + 1 ; 

COPYLINE (INPUT, OUTPUT) ; 

IF ZEILE MOD 20 = 0 THEN 

(* WARTE BIS EINE TASTE GEDRUECKT WURDE *) 
REPEAT 

PEEK (TASTENPUFFER, DUMMY) 

UNTIL DUMMY 0; 

END; 

END. 


APPEI3D für 

TRS-C© L ii 

I Um ein Programmteil an ein im Speicher 
vorhandenes Programm anzufügen, ge- 
nügt es, das folgende Basicprogramm 
hinter das vorhandene Programm einzu- 
! geben und zu starten. Es belegt den In- 
halt des Programmanfangszeigers in hex 
40A4.5 mit der letzten Speicheradresse 
des aktuellen Programms. Diese läßt sich 
aus dem Inhalt des Variablenspeicher- 
zeigers 40F9, A H berechnen, indem da- 
von 2 subtrahiert wird. 

A = PEEK (16633) : B = PEEK 
(16634) : A = A-2 

IF A < 0 THEN A = A + 256 : B = B-l 
POKE 16548, A : POKE 16549, B : END. 

Betrachtet man sich nun seinen Pro- 
grammspeicher z. B. mit dem LIST-Be- 
fehl, so scheint er leer zu sein. Er ist 
jedoch nur verdeckt und ein Unterpro- 
gramm kann mit CLOAD zugeladen wer- 
den. Zu beachten ist dabei nur. daß die 
Zeilennummern des zugeladenen Pro- 
gramms größer sind, als die des verdeck- 
ten Programms. Dies ist bereits bei der 
Erstellung von Unterprogrammen da- 
durch zu berücksichtigen, daß diese mit 
genügend großen Zeilennummern be- 
ginnen. 

Um das verdeckte Programm wieder zu 
aktivieren, muß in den Programman- 
fangszeiger wieder die Adresse 42E9 H 
eingegeben werden. Dies bewerkstelligt 
die Befehlsfolge: 

POKE 16548.233 : POKE 16549.66. 

Abschließend sind noch die drei Basic- 
zeilen des Zuladeprogramms zu ; ö- 
schen, sofern sie nicht im Befehlsmodus 
eingegeben wurden. Werner Linsler 


Berichtigung: 

Das Innenleben des 
NZ-80K 

t 

mc 1981, Heft 4. Seite 39 

Die Bildunterschrift muß richtig lauten: 

B bezeichnet ein Byte, wobei jedes 

Bit als S für Null und L für Eins gesendet 
wird, das höchstwertige unüblicherwei- 
se zuerst. Jedem Byte ist ein L als Startbit 
vorangestellt." Im Bild ist die Anfangs- 
impulsfolge korrekterweise so: 22000 X 
S, 40 x L, 40 x S beim Deskriptor. 11000 
x S, 20 X L, 20 x S beim Datensegment. 
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